use warnings;
use strict;
use Data::Dumper;
use Cwd;
use feature 'state';

my $var = "abcf fabsf";
my @arr = (5,2,3);
my %hash;


#foreach (sort grep(/^.*\.pl/, glob("*"))) {print "$_\n"};

my $tmp = $var =~ /ab c/x;


if (defined $`) { print "\$` is $`\n";}
if (defined $&) { print "\$& is $&\n";}
if (defined $') { print "\$' is $'\n";}

my $str = 'abc';
my $arr1 = $var =~ /$str/;
print $&;

use File::Basename;       
print "$0\n";  

print %ENV ;